home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / PROGRAMMING / BASCoMPress.SPK / !BC / !Run < prev    next >
Text File  |  1995-02-28  |  2KB  |  41 lines
  1. | Run file for BasCompress
  2. |
  3. | Complicated because can call direct to back end if any parameters passed
  4.  
  5. IconSprites <Obey$Dir>.!Sprites
  6. Set BasCompress$Dir <Obey$Dir>
  7. SetEval Alias$BasCompress "/<BasCompress$Dir>.!Run "
  8.  
  9. If "<System$Path>"="" Then Error System resources cannot be found
  10.  
  11. Set Old$CAsm 0
  12. RMEnsure CAssembler 0    Set Old$CAsm 1
  13. RMEnsure CAssembler 0.154 Set Old$CAsm 0
  14. If <Old$CAsm> Then Error An old version of the CAssembler module is resident
  15. UnSet Old$CAsm
  16. Set BasCompressFE$Path <BasCompress$Dir>.,System:Modules.
  17. RMEnsure CAssembler 0.16 RMLoad BasCompressFE:CAssembler
  18. RMEnsure CAssembler 0.16 Error CAssembler module not found or too old
  19.  
  20. If "%0"="" Then RMEnsure FontWindow 1.40 RMLoad BasCompressFE:FontWindow
  21. If "%0"="" Then RMEnsure FontWindow 1.40 Error FontWindow module not found or too old
  22.  
  23. |The following three lines ensure that if running wimp front end:
  24. | 1. use my replacement DDEUtils if no ddeutils about
  25. | 2. use Acorns' DDEUtils if possible
  26. Set BasCompressFE$Path System:Modules.,<BasCompress$Dir>.
  27. If "%0"="" Then RMEnsure DDEUtils 0.01 BasCompressFE:InitDDECy
  28. If "%0"="" Then RMEnsure DDEUtils 0.01 WimpTask BasCompressFE:DDEUtils
  29.  
  30. UnSet BasCompressFE$Path
  31.  
  32. RMEnsure FPEmulator 2.70 RMLoad System:Modules.FPEmulator
  33. RMEnsure FPEmulator 2.70 Error FPEmulator module not found or too old
  34.  
  35. WimpSlot -Min 128K -Max 128K
  36. If "%0"<>"" Then WimpSlot -Min 96K -Max 96K
  37. If "%0"<>"" Then /<BasCompress$Dir>.!RunImage %*0
  38. If "%0"="" Then Set BasCompressFE$Dir <BasCompress$Dir>.!fe
  39. If "%0"="" Then WimpSlot -Min 64K -Max 64K
  40. If "%0"="" Then /<BasCompressFE$Dir>.!RunImage
  41.